home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / error_hn / rdblib / mainform.frm < prev    next >
Text File  |  1995-04-15  |  41KB  |  1,243 lines
  1. VERSION 2.00
  2. Begin Form MainForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "RDBLIB Demo"
  5.    ClientHeight    =   4830
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7605
  9.    Height          =   5235
  10.    Icon            =   MAINFORM.FRX:0000
  11.    Left            =   1035
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4830
  14.    ScaleWidth      =   7605
  15.    Top             =   1140
  16.    Width           =   7725
  17.    Begin VideoSoftIndexTab VSIndexTab1 
  18.       BackSheets      =   0  'None
  19.       Caption         =   "Error Processing|String Functions|Date Functions|Logging Functions"
  20.       ConvInfo        =   MAINFORM.FRX:0302
  21.       FontBold        =   0   'False
  22.       FontItalic      =   0   'False
  23.       FontName        =   "MS Sans Serif"
  24.       FontSize        =   8.25
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       FrontTabColor   =   &H00C0C0C0&
  28.       Height          =   4815
  29.       Left            =   0
  30.       New3D           =   -1  'True
  31.       Position        =   0  'Top
  32.       Style           =   7  'Straight 3D
  33.       TabIndex        =   30
  34.       Top             =   0
  35.       Width           =   7635
  36.       Begin VideoSoftElastic VSElastic4 
  37.          CaptionPos      =   7  'Right Center
  38.          ConvInfo        =   MAINFORM.FRX:030D
  39.          ForeColor       =   &H00FF0000&
  40.          Height          =   4470
  41.          HelpContextID   =   20
  42.          IntBkg          =   &H00C0C0C0&
  43.          Left            =   10080
  44.          TabIndex        =   45
  45.          TagSplit        =   -1  'True
  46.          TagWidth        =   2500
  47.          Top             =   315
  48.          Width           =   7575
  49.          Begin SSPanel PnlHelp 
  50.             AutoSize        =   1  'AutoSize Panel Width To Caption
  51.             BackColor       =   &H0000FFFF&
  52.             BevelInner      =   1  'Inset
  53.             BorderWidth     =   1
  54.             Caption         =   "Help message goes here"
  55.             Font3D          =   1  'Raised w/light shading
  56.             ForeColor       =   &H00FF0000&
  57.             Height          =   315
  58.             Index           =   3
  59.             Left            =   420
  60.             TabIndex        =   47
  61.             Top             =   1260
  62.             Visible         =   0   'False
  63.             Width           =   2190
  64.          End
  65.          Begin SSCommand BtnDispPerfLog 
  66.             Caption         =   "Display Performance Log"
  67.             Font3D          =   0  'None
  68.             Height          =   375
  69.             Left            =   4920
  70.             TabIndex        =   49
  71.             Tag             =   "|Click to display a log of the performance data"
  72.             Top             =   3060
  73.             Width           =   2355
  74.          End
  75.          Begin SSCommand BtnEndTask 
  76.             Caption         =   "Log End Of Task"
  77.             Font3D          =   0  'None
  78.             Height          =   375
  79.             Left            =   2520
  80.             TabIndex        =   26
  81.             Tag             =   "|Click to indicate the end of the task"
  82.             Top             =   3060
  83.             Width           =   2355
  84.          End
  85.          Begin SSCommand BtnStartTask 
  86.             Caption         =   "Log Start Of Task"
  87.             Font3D          =   0  'None
  88.             Height          =   375
  89.             Left            =   120
  90.             TabIndex        =   25
  91.             Tag             =   "|Click to indicate start of task"
  92.             Top             =   3060
  93.             Width           =   2355
  94.          End
  95.          Begin VideoSoftElastic BtnHelp 
  96.             AccessKey       =   -1  'True
  97.             BevelInner      =   0  'None
  98.             BorderWidth     =   2
  99.             Caption         =   "Help"
  100.             CaptionPos      =   5  'Center Bottom
  101.             ConvInfo        =   MAINFORM.FRX:0318
  102.             CornerColor     =   &H00C0C0C0&
  103.             Height          =   675
  104.             Index           =   3
  105.             IntBkg          =   &H00C0C0C0&
  106.             Left            =   6780
  107.             Picture         =   MAINFORM.FRX:0323
  108.             PicturePos      =   3  'Center Top
  109.             Style           =   3  'Command Button
  110.             TabIndex        =   29
  111.             Tag             =   "|Click to obtain help on using the logging functions"
  112.             Top             =   60
  113.             Width           =   735
  114.          End
  115.          Begin SSCommand BtnExit 
  116.             Caption         =   "Exit"
  117.             Font3D          =   0  'None
  118.             Height          =   375
  119.             Index           =   3
  120.             Left            =   3780
  121.             TabIndex        =   28
  122.             Tag             =   "|Press to terminate the program"
  123.             Top             =   3600
  124.             Width           =   2355
  125.          End
  126.          Begin TextBox TxtComments 
  127.             Height          =   1575
  128.             Left            =   2820
  129.             MultiLine       =   -1  'True
  130.             ScrollBars      =   2  'Vertical
  131.             TabIndex        =   24
  132.             Tag             =   "Comments|Enter additional comments or description related to the function"
  133.             Text            =   "Comments - additional information related to this function"
  134.             Top             =   1200
  135.             Width           =   4575
  136.          End
  137.          Begin TextBox TxtTask 
  138.             Height          =   375
  139.             Left            =   2820
  140.             TabIndex        =   23
  141.             Tag             =   "Task|Enter Name of task/function being performed"
  142.             Text            =   "Demo Logging"
  143.             Top             =   720
  144.             Width           =   3075
  145.          End
  146.          Begin TextBox TxtForm 
  147.             Height          =   375
  148.             Left            =   2820
  149.             TabIndex        =   22
  150.             Tag             =   "Form Name|Enter name of form for performance log"
  151.             Text            =   "MainForm"
  152.             Top             =   240
  153.             Width           =   1455
  154.          End
  155.          Begin VideoSoftElastic cMsg 
  156.             Align           =   2  'Bottom
  157.             BevelInner      =   0  'None
  158.             BevelOuter      =   1  'Raised
  159.             BevelOuterDir   =   1  'Horizontal
  160.             BevelOuterWidth =   1
  161.             BorderWidth     =   2
  162.             ChildSpacing    =   1
  163.             ConvInfo        =   MAINFORM.FRX:0625
  164.             FontBold        =   0   'False
  165.             FontItalic      =   0   'False
  166.             FontName        =   "MS Sans Serif"
  167.             FontSize        =   8.25
  168.             FontStrikethru  =   0   'False
  169.             FontUnderline   =   0   'False
  170.             ForeColor       =   &H00FF0000&
  171.             Height          =   315
  172.             Index           =   3
  173.             IntBkg          =   &H00C0C0C0&
  174.             Left            =   0
  175.             TabIndex        =   46
  176.             Top             =   4155
  177.             Width           =   7575
  178.          End
  179.          Begin SSCommand BtnSetOpt 
  180.             Caption         =   "Set Logging Options"
  181.             Font3D          =   0  'None
  182.             Height          =   375
  183.             Left            =   1380
  184.             TabIndex        =   27
  185.             Tag             =   "|Click to set logging options"
  186.             Top             =   3600
  187.             Width           =   2355
  188.          End
  189.       End
  190.       Begin VideoSoftElastic VSElastic3 
  191.          CaptionPos      =   7  'Right Center
  192.          ConvInfo        =   MAINFORM.FRX:0630
  193.          ForeColor       =   &H00FF0000&
  194.          Height          =   4470
  195.          HelpContextID   =   6
  196.          IntBkg          =   &H00C0C0C0&
  197.          Left            =   10005
  198.          TabIndex        =   39
  199.          TagSplit        =   -1  'True
  200.          TagWidth        =   2500
  201.          Top             =   315
  202.          Width           =   7575
  203.          Begin SSPanel PnlHelp 
  204.             AutoSize        =   1  'AutoSize Panel Width To Caption
  205.             BackColor       =   &H0000FFFF&
  206.             BevelInner      =   1  'Inset
  207.             BorderWidth     =   1
  208.             Caption         =   "Help message goes here"
  209.             Font3D          =   1  'Raised w/light shading
  210.             ForeColor       =   &H00FF0000&
  211.             Height          =   315
  212.             Index           =   2
  213.             Left            =   4380
  214.             TabIndex        =   43
  215.             Top             =   300
  216.             Visible         =   0   'False
  217.             Width           =   2190
  218.          End
  219.          Begin VideoSoftElastic BtnHelp 
  220.             AccessKey       =   -1  'True
  221.             BevelInner      =   0  'None
  222.             BorderWidth     =   2
  223.             Caption         =   "Help"
  224.             CaptionPos      =   5  'Center Bottom
  225.             ConvInfo        =   MAINFORM.FRX:063B
  226.             CornerColor     =   &H00C0C0C0&
  227.             Height          =   675
  228.             Index           =   2
  229.             IntBkg          =   &H00C0C0C0&
  230.             Left            =   6720
  231.             Picture         =   MAINFORM.FRX:0646
  232.             PicturePos      =   3  'Center Top
  233.             Style           =   3  'Command Button
  234.             TabIndex        =   21
  235.             Tag             =   "|Click to obtain help on using the date validation function"
  236.             Top             =   60
  237.             Width           =   735
  238.          End
  239.          Begin SSCommand BtnExit 
  240.             Caption         =   "Exit"
  241.             Font3D          =   0  'None
  242.             Height          =   435
  243.             Index           =   2
  244.             Left            =   1200
  245.             TabIndex        =   20
  246.             Tag             =   "|Press to terminate the program"
  247.             Top             =   780
  248.             Width           =   1455
  249.          End
  250.          Begin VideoSoftElastic cMsg 
  251.             Align           =   2  'Bottom
  252.             BevelInner      =   0  'None
  253.             BevelOuter      =   1  'Raised
  254.             BevelOuterDir   =   1  'Horizontal
  255.             BevelOuterWidth =   1
  256.             BorderWidth     =   2
  257.             ChildSpacing    =   1
  258.             ConvInfo        =   MAINFORM.FRX:0948
  259.             FontBold        =   0   'False
  260.             FontItalic      =   0   'False
  261.             FontName        =   "MS Sans Serif"
  262.             FontSize        =   8.25
  263.             FontStrikethru  =   0   'False
  264.             FontUnderline   =   0   'False
  265.             ForeColor       =   &H00FF0000&
  266.             Height          =   315
  267.             Index           =   2
  268.             IntBkg          =   &H00C0C0C0&
  269.             Left            =   0
  270.             TabIndex        =   35
  271.             Top             =   4155
  272.             Width           =   7575
  273.          End
  274.          Begin TextBox TxtDate 
  275.             BackColor       =   &H00FFFFFF&
  276.             Height          =   375
  277.             Left            =   2460
  278.             TabIndex        =   19
  279.             Tag             =   "Date To Be Validated|Enter the date to be validated"
  280.             Text            =   "01/01/94"
  281.             Top             =   180
  282.             Width           =   1095
  283.          End
  284.       End
  285.       Begin VideoSoftElastic VSElastic2 
  286.          CaptionPos      =   7  'Right Center
  287.          ConvInfo        =   MAINFORM.FRX:0953
  288.          ForeColor       =   &H00FF0000&
  289.          Height          =   4470
  290.          HelpContextID   =   8
  291.          IntBkg          =   &H00C0C0C0&
  292.          Left            =   9930
  293.          TabIndex        =   34
  294.          TagSplit        =   -1  'True
  295.          TagWidth        =   2500
  296.          Top             =   315
  297.          Width           =   7575
  298.          Begin SSPanel PnlHelp 
  299.             AutoSize        =   1  'AutoSize Panel Width To Caption
  300.             BackColor       =   &H0000FFFF&
  301.             BevelInner      =   1  'Inset
  302.             BorderWidth     =   1
  303.             Caption         =   "Help message goes here"
  304.             Font3D          =   1  'Raised w/light shading
  305.             ForeColor       =   &H00FF0000&
  306.             Height          =   315
  307.             Index           =   1
  308.             Left            =   3960
  309.             TabIndex        =   42
  310.             Top             =   3720
  311.             Visible         =   0   'False
  312.             Width           =   2190
  313.          End
  314.          Begin VideoSoftElastic BtnHelp 
  315.             AccessKey       =   -1  'True
  316.             BevelInner      =   0  'None
  317.             BorderWidth     =   2
  318.             Caption         =   "Help"
  319.             CaptionPos      =   5  'Center Bottom
  320.             ConvInfo        =   MAINFORM.FRX:095E
  321.             CornerColor     =   &H00C0C0C0&
  322.             Height          =   675
  323.             Index           =   1
  324.             IntBkg          =   &H00C0C0C0&
  325.             Left            =   6780
  326.             Picture         =   MAINFORM.FRX:0969
  327.             PicturePos      =   3  'Center Top
  328.             Style           =   3  'Command Button
  329.             TabIndex        =   18
  330.             Tag             =   "|Click to obtain help on using the string functions"
  331.             Top             =   300
  332.             Width           =   735
  333.          End
  334.          Begin SSCommand BtnExit 
  335.             Caption         =   "Exit"
  336.             Font3D          =   0  'None
  337.             Height          =   435
  338.             Index           =   1
  339.             Left            =   1860
  340.             TabIndex        =   17
  341.             Tag             =   "|Press to terminate the program"
  342.             Top             =   3600
  343.             Width           =   1455
  344.          End
  345.          Begin SSCommand BtnEject 
  346.             Caption         =   "Print Page"
  347.             Font3D          =   0  'None
  348.             Height          =   435
  349.             Left            =   60
  350.             TabIndex        =   16
  351.             Tag             =   "|Press to print a page"
  352.             Top             =   3600
  353.             Width           =   1455
  354.          End
  355.          Begin VideoSoftElastic VSElastic5 
  356.             BackColor       =   &H00FF0000&
  357.             BevelInner      =   0  'None
  358.             BevelOuter      =   1  'Raised
  359.             BevelOuterDir   =   1  'Horizontal
  360.             BevelOuterWidth =   1
  361.             BorderWidth     =   2
  362.             Caption         =   "RB_Text_Format"
  363.             CaptionPos      =   4  'Center Center
  364.             ChildSpacing    =   1
  365.             ConvInfo        =   MAINFORM.FRX:0C6B
  366.             ForeColor       =   &H00FFFFFF&
  367.             Height          =   255
  368.             Index           =   2
  369.             IntBkg          =   &H00FF0000&
  370.             Left            =   0
  371.             TabIndex        =   36
  372.             Top             =   2040
  373.             Width           =   7575
  374.          End
  375.          Begin VideoSoftElastic VSElastic5 
  376.             BackColor       =   &H00FF0000&
  377.             BevelInner      =   0  'None
  378.             BevelOuter      =   1  'Raised
  379.             BevelOuterDir   =   1  'Horizontal
  380.             BevelOuterWidth =   1
  381.             BorderWidth     =   2
  382.             Caption         =   "RB_RJustify"
  383.             CaptionPos      =   4  'Center Center
  384.             ChildSpacing    =   1
  385.             ConvInfo        =   MAINFORM.FRX:0C76
  386.             ForeColor       =   &H00FFFFFF&
  387.             Height          =   255
  388.             Index           =   1
  389.             IntBkg          =   &H00FF0000&
  390.             Left            =   0
  391.             TabIndex        =   37
  392.             Top             =   1020
  393.             Width           =   7575
  394.          End
  395.          Begin VideoSoftElastic VSElastic5 
  396.             Align           =   1  'Top
  397.             BackColor       =   &H00FF0000&
  398.             BevelInner      =   0  'None
  399.             BevelOuter      =   1  'Raised
  400.             BevelOuterDir   =   1  'Horizontal
  401.             BevelOuterWidth =   1
  402.             BorderWidth     =   2
  403.             Caption         =   "RB_Center"
  404.             CaptionPos      =   4  'Center Center
  405.             ChildSpacing    =   1
  406.             ConvInfo        =   MAINFORM.FRX:0C81
  407.             ForeColor       =   &H00FFFFFF&
  408.             Height          =   255
  409.             Index           =   0
  410.             IntBkg          =   &H00FF0000&
  411.             Left            =   0
  412.             TabIndex        =   38
  413.             Top             =   0
  414.             Width           =   7575
  415.          End
  416.          Begin VideoSoftElastic cMsg 
  417.             Align           =   2  'Bottom
  418.             BevelInner      =   0  'None
  419.             BevelOuter      =   1  'Raised
  420.             BevelOuterDir   =   1  'Horizontal
  421.             BevelOuterWidth =   1
  422.             BorderWidth     =   2
  423.             ChildSpacing    =   1
  424.             ConvInfo        =   MAINFORM.FRX:0C8C
  425.             FontBold        =   0   'False
  426.             FontItalic      =   0   'False
  427.             FontName        =   "MS Sans Serif"
  428.             FontSize        =   8.25
  429.             FontStrikethru  =   0   'False
  430.             FontUnderline   =   0   'False
  431.             ForeColor       =   &H00FF0000&
  432.             Height          =   315
  433.             Index           =   1
  434.             IntBkg          =   &H00C0C0C0&
  435.             Left            =   0
  436.             TabIndex        =   41
  437.             Top             =   4155
  438.             Width           =   7575
  439.          End
  440.          Begin TextBox Txtformatstring 
  441.             BackColor       =   &H00FFFFFF&
  442.             Height          =   795
  443.             Left            =   3720
  444.             MultiLine       =   -1  'True
  445.             ScrollBars      =   2  'Vertical
  446.             TabIndex        =   14
  447.             Tag             =   "String To Format|Enter the string to be formatted"
  448.             Text            =   "This String Will Be Formatted Into individual lines for printing.  This text should be long enough to create multiple lines on the printed output."
  449.             Top             =   2760
  450.             Width           =   3675
  451.          End
  452.          Begin SSCommand BtnFormat 
  453.             Caption         =   "Format String"
  454.             Font3D          =   0  'None
  455.             Height          =   555
  456.             Left            =   60
  457.             TabIndex        =   15
  458.             Tag             =   "Press to print the text in the specified line size"
  459.             Top             =   2640
  460.             Width           =   1455
  461.          End
  462.          Begin TextBox Txtfmtline 
  463.             BackColor       =   &H00FFFFFF&
  464.             Height          =   315
  465.             Left            =   5940
  466.             TabIndex        =   13
  467.             Tag             =   "Print Starting On Line|Enter the beginning line for the text to print on"
  468.             Text            =   "10"
  469.             Top             =   2340
  470.             Width           =   495
  471.          End
  472.          Begin TextBox Txtprintwidth 
  473.             BackColor       =   &H00FFFFFF&
  474.             Height          =   315
  475.             Left            =   3300
  476.             TabIndex        =   12
  477.             Tag             =   "Print Line Width|Enter the line width to use"
  478.             Text            =   "65"
  479.             Top             =   2340
  480.             Width           =   495
  481.          End
  482.          Begin TextBox Txtctrstring 
  483.             BackColor       =   &H00FFFFFF&
  484.             Height          =   315
  485.             Left            =   3240
  486.             TabIndex        =   4
  487.             Tag             =   "String To Center|Enter the string to be centered"
  488.             Text            =   "This String Will Be Centered"
  489.             Top             =   300
  490.             Width           =   3435
  491.          End
  492.          Begin SSCommand BtnCenter 
  493.             Caption         =   "Center String"
  494.             Font3D          =   0  'None
  495.             Height          =   615
  496.             Left            =   60
  497.             TabIndex        =   7
  498.             Tag             =   "Press to center the string"
  499.             Top             =   360
  500.             Width           =   1455
  501.          End
  502.          Begin TextBox Txtctrline 
  503.             BackColor       =   &H00FFFFFF&
  504.             Height          =   285
  505.             Left            =   3240
  506.             TabIndex        =   5
  507.             Tag             =   "On Line|Enter the line number for the string to print on"
  508.             Text            =   "10"
  509.             Top             =   660
  510.             Width           =   555
  511.          End
  512.          Begin SSCheck ChkNewLine 
  513.             Caption         =   "Start a New Line"
  514.             Font3D          =   0  'None
  515.             Height          =   255
  516.             Left            =   3960
  517.             TabIndex        =   6
  518.             Tag             =   "|Check to start a new line after this string"
  519.             Top             =   660
  520.             Width           =   2715
  521.          End
  522.          Begin TextBox Txtrjnum 
  523.             BackColor       =   &H00FFFFFF&
  524.             Height          =   285
  525.             Left            =   3240
  526.             TabIndex        =   8
  527.             Tag             =   "Number To Format|Enter the number to be formatted"
  528.             Text            =   "200"
  529.             Top             =   1350
  530.             Width           =   1455
  531.          End
  532.          Begin SSCommand Btnrightjustify 
  533.             Caption         =   "Right Jusitfy"
  534.             Font3D          =   0  'None
  535.             Height          =   555
  536.             Left            =   60
  537.             TabIndex        =   11
  538.             Tag             =   "Press to format and right justify the number"
  539.             Top             =   1380
  540.             Width           =   1455
  541.          End
  542.          Begin TextBox Txtrjformat 
  543.             BackColor       =   &H00FFFFFF&
  544.             Height          =   315
  545.             Left            =   3240
  546.             TabIndex        =   9
  547.             Tag             =   "Format To Use|Enter the format string to use for formatting the number"
  548.             Text            =   "###,##0.00"
  549.             Top             =   1680
  550.             Width           =   1455
  551.          End
  552.          Begin TextBox Txtrjcol 
  553.             BackColor       =   &H00FFFFFF&
  554.             Height          =   315
  555.             Left            =   5940
  556.             TabIndex        =   10
  557.             Tag             =   "At Column|Enter the rightmost column to align on"
  558.             Text            =   "40"
  559.             Top             =   1680
  560.             Width           =   435
  561.          End
  562.       End
  563.       Begin VideoSoftElastic VSElastic1 
  564.          CaptionPos      =   7  'Right Center
  565.          ConvInfo        =   MAINFORM.FRX:0C97
  566.          ForeColor       =   &H00FF0000&
  567.          Height          =   4470
  568.          HelpContextID   =   9
  569.          IntBkg          =   &H00C0C0C0&
  570.          Left            =   30
  571.          TabIndex        =   31
  572.          TagSplit        =   -1  'True
  573.          TagWidth        =   2900
  574.          Top             =   315
  575.          Width           =   7575
  576.          Begin SSPanel PnlHelp 
  577.             AutoSize        =   1  'AutoSize Panel Width To Caption
  578.             BackColor       =   &H0000FFFF&
  579.             BevelInner      =   1  'Inset
  580.             BorderWidth     =   1
  581.             Caption         =   "Help message goes here"
  582.             Font3D          =   1  'Raised w/light shading
  583.             ForeColor       =   &H00FF0000&
  584.             Height          =   315
  585.             Index           =   0
  586.             Left            =   3540
  587.             TabIndex        =   32
  588.             Top             =   480
  589.             Visible         =   0   'False
  590.             Width           =   2190
  591.          End
  592.          Begin SSCommand BtnDispErrLog 
  593.             Caption         =   "Display Error Log"
  594.             Font3D          =   0  'None
  595.             Height          =   375
  596.             Left            =   2700
  597.             TabIndex        =   48
  598.             Tag             =   "|Press to display error log records"
  599.             Top             =   1080
  600.             Width           =   1695
  601.          End
  602.          Begin VideoSoftElastic BtnAbout 
  603.             AccessKey       =   -1  'True
  604.             BevelInner      =   0  'None
  605.             BorderWidth     =   2
  606.             Caption         =   "About"
  607.             CaptionPos      =   5  'Center Bottom
  608.             ConvInfo        =   MAINFORM.FRX:0CA2
  609.             CornerColor     =   &H00C0C0C0&
  610.             Height          =   675
  611.             IntBkg          =   &H00C0C0C0&
  612.             Left            =   6060
  613.             Picture         =   MAINFORM.FRX:0CAD
  614.             PicturePos      =   3  'Center Top
  615.             Style           =   3  'Command Button
  616.             TabIndex        =   44
  617.             Tag             =   "|Click to display information about this program"
  618.             Top             =   420
  619.             Width           =   735
  620.          End
  621.          Begin CommonDialog CMDialog1 
  622.             HelpFile        =   "rdblib.hlp"
  623.             Left            =   6840
  624.             Top             =   3420
  625.          End
  626.          Begin VideoSoftElastic BtnHelp 
  627.             AccessKey       =   -1  'True
  628.             BevelInner      =   0  'None
  629.             BorderWidth     =   2
  630.             Caption         =   "Help"
  631.             CaptionPos      =   5  'Center Bottom
  632.             ConvInfo        =   MAINFORM.FRX:0FAF
  633.             CornerColor     =   &H00C0C0C0&
  634.             Height          =   675
  635.             Index           =   0
  636.             IntBkg          =   &H00C0C0C0&
  637.             Left            =   6780
  638.             Picture         =   MAINFORM.FRX:0FBA
  639.             PicturePos      =   3  'Center Top
  640.             Style           =   3  'Command Button
  641.             TabIndex        =   3
  642.             Tag             =   "|Click to obtain help on using the error handler"
  643.             Top             =   420
  644.             Width           =   735
  645.          End
  646.          Begin SSCommand BtnExit 
  647.             Caption         =   "Exit"
  648.             Font3D          =   0  'None
  649.             Height          =   375
  650.             Index           =   0
  651.             Left            =   1980
  652.             TabIndex        =   2
  653.             Tag             =   "|Press to terminate the program"
  654.             Top             =   1620
  655.             Width           =   1695
  656.          End
  657.          Begin VideoSoftElastic cMsg 
  658.             Align           =   2  'Bottom
  659.             BevelInner      =   0  'None
  660.             BevelOuter      =   1  'Raised
  661.             BevelOuterDir   =   1  'Horizontal
  662.             BevelOuterWidth =   1
  663.             BorderWidth     =   2
  664.             ChildSpacing    =   1
  665.             ConvInfo        =   MAINFORM.FRX:12BC
  666.             FontBold        =   0   'False
  667.             FontItalic      =   0   'False
  668.             FontName        =   "MS Sans Serif"
  669.             FontSize        =   8.25
  670.             FontStrikethru  =   0   'False
  671.             FontUnderline   =   0   'False
  672.             ForeColor       =   &H00FF0000&
  673.             Height          =   315
  674.             Index           =   0
  675.             IntBkg          =   &H00C0C0C0&
  676.             Left            =   0
  677.             TabIndex        =   40
  678.             Top             =   4155
  679.             Width           =   7575
  680.          End
  681.          Begin VideoSoftElastic VSElastic5 
  682.             Align           =   1  'Top
  683.             BackColor       =   &H00FF0000&
  684.             BevelInner      =   0  'None
  685.             BevelOuter      =   1  'Raised
  686.             BevelOuterDir   =   1  'Horizontal
  687.             BevelOuterWidth =   1
  688.             BorderWidth     =   2
  689.             Caption         =   "RB_ErrorHandler"
  690.             CaptionPos      =   4  'Center Center
  691.             ChildSpacing    =   1
  692.             ConvInfo        =   MAINFORM.FRX:12C7
  693.             FontBold        =   -1  'True
  694.             FontItalic      =   0   'False
  695.             FontName        =   "MS Sans Serif"
  696.             FontSize        =   12
  697.             FontStrikethru  =   0   'False
  698.             FontUnderline   =   0   'False
  699.             ForeColor       =   &H00FFFFFF&
  700.             Height          =   375
  701.             Index           =   3
  702.             IntBkg          =   &H00FF0000&
  703.             Left            =   0
  704.             TabIndex        =   33
  705.             Top             =   0
  706.             Width           =   7575
  707.          End
  708.          Begin SSCommand BtnGenError 
  709.             Caption         =   "Generate Error"
  710.             Font3D          =   0  'None
  711.             Height          =   375
  712.             Left            =   900
  713.             TabIndex        =   1
  714.             Tag             =   "|Press to generate indicated error and demo error handling routine"
  715.             Top             =   1080
  716.             Width           =   1695
  717.          End
  718.          Begin TextBox TxtErrorNum 
  719.             BackColor       =   &H00FFFFFF&
  720.             Height          =   375
  721.             Left            =   2520
  722.             TabIndex        =   0
  723.             Tag             =   "Error Number To Generate|Enter the error number to be generated"
  724.             Text            =   "10"
  725.             Top             =   540
  726.             Width           =   555
  727.          End
  728.       End
  729.    End
  730. End
  731. Option Explicit
  732.  
  733. Sub BtnAbout_Click ()
  734.     ShowHelp BtnAbout, 0, 0
  735.     LogoForm.Show MODAL
  736.  
  737. End Sub
  738.  
  739. Sub BtnAbout_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  740.     ShowHelp BtnAbout, X, Y
  741.  
  742. End Sub
  743.  
  744. Sub BtnCenter_Click ()
  745.     Dim newline As Integer, nline As Integer
  746.     Dim cstring As String
  747.     ShowHelp BtnCenter, 0, 0
  748.     cstring = TxtCtrString.Text
  749.     nline = Val(TxtCtrLine.Text)
  750.     newline = ChkNewLine.Value
  751.     RB_Center cstring, nline, newline
  752.  
  753. End Sub
  754.  
  755. Sub BtnCenter_GotFocus ()
  756.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnCenter.Tag))
  757.  
  758. End Sub
  759.  
  760. Sub BtnCenter_LostFocus ()
  761.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  762.  
  763. End Sub
  764.  
  765. Sub BtnCenter_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  766.     ShowHelp BtnCenter, X, Y
  767.  
  768. End Sub
  769.  
  770. Sub BtnDispErrLog_Click ()
  771.     ShowHelp BtnDispErrLog, 0, 0
  772.     ErrLog.Show MODELESS
  773.  
  774. End Sub
  775.  
  776. Sub BtnDispErrLog_GotFocus ()
  777.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnDispErrLog.Tag))
  778.     
  779. End Sub
  780.  
  781. Sub BtnDispErrLog_LostFocus ()
  782.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  783.  
  784. End Sub
  785.  
  786. Sub BtnDispErrLog_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  787.     ShowHelp BtnDispErrLog, X, Y
  788.  
  789. End Sub
  790.  
  791. Sub BtnDispPerfLog_Click ()
  792.     ShowHelp BtnDispPerfLog, 0, 0
  793.     PerfLog.Show MODELESS
  794.  
  795. End Sub
  796.  
  797. Sub BtnDispPerfLog_GotFocus ()
  798.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnDispPerfLog.Tag))
  799.  
  800. End Sub
  801.  
  802. Sub BtnDispPerfLog_LostFocus ()
  803.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  804.  
  805. End Sub
  806.  
  807. Sub BtnDispPerfLog_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  808.     ShowHelp BtnDispPerfLog, X, Y
  809.  
  810. End Sub
  811.  
  812. Sub BtnEject_Click ()
  813.     ShowHelp BtnEject, 0, 0
  814.     
  815.     Printer.NewPage
  816.     Printer.EndDoc
  817.  
  818. End Sub
  819.  
  820. Sub BtnEject_GotFocus ()
  821.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnEject.Tag))
  822.  
  823. End Sub
  824.  
  825. Sub BtnEject_LostFocus ()
  826.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  827.  
  828. End Sub
  829.  
  830. Sub BtnEject_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  831.     ShowHelp BtnEject, X, Y
  832.  
  833. End Sub
  834.  
  835. Sub BtnEndTask_Click ()
  836.     ShowHelp BtnEndTask, 0, 0
  837.     RB_LogTask (TxtTask.Text), (TxtForm.Text), RB_ENDTASK, (TxtComments.Text)
  838.  
  839. End Sub
  840.  
  841. Sub BtnEndTask_GotFocus ()
  842.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnEndTask.Tag))
  843.  
  844. End Sub
  845.  
  846. Sub BtnEndTask_LostFocus ()
  847.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  848.  
  849. End Sub
  850.  
  851. Sub BtnEndTask_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  852.     ShowHelp BtnEndTask, X, Y
  853.  
  854. End Sub
  855.  
  856. Sub BtnExit_Click (Index As Integer)
  857.     Unload MainForm
  858.  
  859. End Sub
  860.  
  861. Sub BtnExit_GotFocus (Index As Integer)
  862.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnExit(0).Tag))
  863.     
  864. End Sub
  865.  
  866. Sub BtnExit_LostFocus (Index As Integer)
  867.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  868.  
  869. End Sub
  870.  
  871. Sub BtnExit_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  872.     ShowHelp BtnExit(Index), X, Y
  873. End Sub
  874.  
  875. Sub BtnFormat_Click ()
  876.     Dim fstring As String, stringtoprint As String
  877.     ShowHelp BtnFormat, 0, 0
  878.     fstring = TxtFormatString.Text
  879.     stringtoprint = RB_Text_Format(fstring, Val(TxtPrintWidth.Text))
  880.     Printer.CurrentY = Val(TxtFmtLine.Text)
  881.     Printer.CurrentX = 0
  882.     Printer.Print stringtoprint
  883.  
  884. End Sub
  885.  
  886. Sub BtnFormat_GotFocus ()
  887.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnFormat.Tag))
  888.  
  889. End Sub
  890.  
  891. Sub BtnFormat_LostFocus ()
  892.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  893.  
  894. End Sub
  895.  
  896. Sub BtnFormat_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  897.     ShowHelp BtnFormat, X, Y
  898.  
  899. End Sub
  900.  
  901. Sub BtnGenError_Click ()
  902.     Dim erraction As Integer
  903.     On Error GoTo commanderror
  904.     ShowHelp BtnGenError, 0, 0
  905. 10    Error TxtErrorNum.Text
  906.     MsgBox "Error ignored", MB_ICONINFORMATION, "RB_ErrorHandler Test"
  907.     Exit Sub
  908.  
  909. commanderror:
  910.     ' Example of call to RB_ErrorHandler routine
  911.     erraction = RB_ErrorHandler("MainForm", "BtnGenError_Click")
  912.     Select Case erraction
  913.     Case 1
  914.         Resume 0
  915.     Case 2
  916.         Resume Next
  917.     End Select
  918.  
  919.     Stop
  920.  
  921.  
  922. End Sub
  923.  
  924. Sub BtnGenError_GotFocus ()
  925.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnGenError.Tag))
  926.  
  927. End Sub
  928.  
  929. Sub BtnGenError_LostFocus ()
  930.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  931.  
  932. End Sub
  933.  
  934. Sub BtnGenError_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  935.     ShowHelp BtnGenError, X, Y
  936.  
  937. End Sub
  938.  
  939. Sub BtnHelp_Click (Index As Integer)
  940.     SendKeys "{F1}"
  941.  
  942. End Sub
  943.  
  944. Sub BtnHelp_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  945.     ShowHelp BtnHelp(Index), X, Y
  946.  
  947. End Sub
  948.  
  949. Sub Btnrightjustify_Click ()
  950.     Dim rjformat As String
  951.     Dim rjnum As Double, pcol As Integer
  952.     ShowHelp Btnrightjustify, 0, 0
  953.     rjformat = TxtRJFormat.Text
  954.     rjnum = Val(TxtRJCol)
  955.     Printer.Print
  956.     pcol = RB_Rjustify(Val(Txtrjnum.Text), rjformat, rjnum)
  957.     Printer.Print
  958.  
  959. End Sub
  960.  
  961. Sub Btnrightjustify_GotFocus ()
  962.     cmsg(VSIndexTab1.CurrTab).Caption = Btnrightjustify.Tag
  963.  
  964. End Sub
  965.  
  966. Sub Btnrightjustify_LostFocus ()
  967.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  968.  
  969. End Sub
  970.  
  971. Sub Btnrightjustify_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  972.     ShowHelp Btnrightjustify, X, Y
  973.  
  974. End Sub
  975.  
  976. Sub BtnSetOpt_Click ()
  977.     RB_SetLogOptions
  978.  
  979. End Sub
  980.  
  981. Sub BtnSetOpt_GotFocus ()
  982.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnSetOpt.Tag))
  983.     
  984. End Sub
  985.  
  986. Sub BtnSetOpt_LostFocus ()
  987.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  988.  
  989. End Sub
  990.  
  991. Sub BtnSetOpt_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  992.     ShowHelp BtnSetOpt, X, Y
  993.  
  994. End Sub
  995.  
  996. Sub BtnStartTask_Click ()
  997.     ShowHelp BtnStartTask, 0, 0
  998.     RB_LogTask (TxtTask.Text), (TxtForm.Text), RB_STARTTASK, (TxtComments.Text)
  999.  
  1000. End Sub
  1001.  
  1002. Sub BtnStartTask_GotFocus ()
  1003.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnStartTask.Tag))
  1004.  
  1005. End Sub
  1006.  
  1007. Sub BtnStartTask_LostFocus ()
  1008.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  1009.  
  1010. End Sub
  1011.  
  1012. Sub BtnStartTask_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  1013.     ShowHelp BtnStartTask, X, Y
  1014.  
  1015. End Sub
  1016.  
  1017. Sub ChkNewLine_GotFocus ()
  1018.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((ChkNewLine.Tag))
  1019.  
  1020. End Sub
  1021.  
  1022. Sub ChkNewLine_LostFocus ()
  1023.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  1024.  
  1025. End Sub
  1026.  
  1027. Sub FldGotFocus (PControl As Control)
  1028.     PControl.BackColor = BLUE
  1029.     PControl.ForeColor = WHITE
  1030.     PControl.SelStart = 0
  1031.     PControl.SelLength = 1000
  1032.     cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((PControl.Tag))
  1033.  
  1034. End Sub
  1035.  
  1036. Sub FldLostFocus (PControl As Control)
  1037.     PControl.BackColor = WHITE
  1038.     PControl.ForeColor = BLACK
  1039.     cmsg(VSIndexTab1.CurrTab).Caption = ""
  1040.  
  1041. End Sub
  1042.  
  1043. Sub Form_Load ()
  1044.     rb_systemname = "RDBLIB Demo"
  1045.     rb_version = "1.3"
  1046.     Printer.ScaleMode = 4
  1047.     Printer.ScaleLeft = -10
  1048.  
  1049.     RB_OpenLog
  1050.     
  1051.  
  1052. End Sub
  1053.  
  1054. Sub Form_Unload (Cancel As Integer)
  1055.     RB_CloseLog
  1056.  
  1057. End Sub
  1058.  
  1059. Sub ShowHelp (PBtn As Control, px As Single, py As Single)
  1060. ' Subroutine to show popup help for a control
  1061. ' To use:
  1062. '    add a panel control called PnlHelp to the form
  1063. '    Set control's tag property to help message desired
  1064. '    Copy this subroutine to the form code and uncomment code below
  1065. '    In mousemove event of control add
  1066. '       ShowHelp control-name, x, y
  1067. '    In click event or other events of control that cause action add
  1068. '       ShowHelp control-name, 0, 0     ' Hides help
  1069.  
  1070.     Dim maxx As Single, maxy As Single
  1071.     Dim nPnlTop As Single, nPnlLeft As Single
  1072.     ' Determine max x & y coordinates with 80 twip border
  1073.     ' boundry of 80 twips allowed to be able to catch cursor as exiting control
  1074.     maxx = PBtn.Width - 80
  1075.     maxy = PBtn.Height - 80
  1076.     ' if exiting control area turn off help panel
  1077.     If px < 80 Or py < 80 Or px > maxx Or py > maxy Then
  1078.         PnlHelp(VSIndexTab1.CurrTab).Visible = False
  1079.         PnlHelp(VSIndexTab1.CurrTab).Caption = ""
  1080.         Exit Sub
  1081.     End If
  1082.  
  1083.     ' Determine location for help panel
  1084.     ' Assume below and to right
  1085.     nPnlTop = PBtn.Top + PBtn.Height + 40
  1086.     nPnlLeft = PBtn.Left + 100
  1087.     ' Put panel above control if not enough room below
  1088.     If nPnlTop + PnlHelp(VSIndexTab1.CurrTab).Height > Height - 1024 Then
  1089.         nPnlTop = PBtn.Top - PnlHelp(VSIndexTab1.CurrTab).Height - 40
  1090.     End If
  1091.     ' Put panel to left if not enough room to right
  1092.     If nPnlLeft + PnlHelp(VSIndexTab1.CurrTab).Width > Width - 500 Then
  1093.         nPnlLeft = Width - PnlHelp(VSIndexTab1.CurrTab).Width - 240
  1094.     End If
  1095.  
  1096.     ' if same settings exit to prevent flickering effect
  1097.     If PnlHelp(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((PBtn.Tag)) And PnlHelp(VSIndexTab1.CurrTab).Top = nPnlTop And PnlHelp(VSIndexTab1.CurrTab).Left = nPnlLeft Then
  1098.         Exit Sub
  1099.     End If
  1100.     
  1101.     ' get help msg from control's tag and position help panel
  1102.     PnlHelp(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((PBtn.Tag))
  1103.     PnlHelp(VSIndexTab1.CurrTab).Top = nPnlTop
  1104.     PnlHelp(VSIndexTab1.CurrTab).Left = nPnlLeft
  1105.     PnlHelp(VSIndexTab1.CurrTab).Visible = True
  1106.     
  1107. End Sub
  1108.  
  1109. Sub TxtComments_GotFocus ()
  1110.     FldGotFocus TxtComments
  1111.  
  1112. End Sub
  1113.  
  1114. Sub TxtComments_LostFocus ()
  1115.     FldLostFocus TxtComments
  1116.  
  1117. End Sub
  1118.  
  1119. Sub Txtctrline_GotFocus ()
  1120.     FldGotFocus TxtCtrLine
  1121.  
  1122. End Sub
  1123.  
  1124. Sub Txtctrline_LostFocus ()
  1125.     FldLostFocus TxtCtrLine
  1126.  
  1127. End Sub
  1128.  
  1129. Sub Txtctrstring_GotFocus ()
  1130.     FldGotFocus TxtCtrString
  1131.  
  1132. End Sub
  1133.  
  1134. Sub Txtctrstring_LostFocus ()
  1135.     FldLostFocus TxtCtrString
  1136.  
  1137. End Sub
  1138.  
  1139. Sub TxtDate_GotFocus ()
  1140.     FldGotFocus TxtDate
  1141.  
  1142. End Sub
  1143.  
  1144. Sub TxtDate_LostFocus ()
  1145.     If Not RB_Validate_Date(TxtDate) Then
  1146.         TxtDate.SetFocus
  1147.         Exit Sub
  1148.     End If
  1149.     FldLostFocus TxtDate
  1150.  
  1151. End Sub
  1152.  
  1153. Sub TxtErrorNum_GotFocus ()
  1154.     FldGotFocus TxtErrorNum
  1155.  
  1156. End Sub
  1157.  
  1158. Sub TxtErrorNum_LostFocus ()
  1159.     FldLostFocus TxtErrorNum
  1160.  
  1161. End Sub
  1162.  
  1163. Sub Txtfmtline_GotFocus ()
  1164.     FldGotFocus TxtFmtLine
  1165.  
  1166. End Sub
  1167.  
  1168. Sub Txtfmtline_LostFocus ()
  1169.     FldLostFocus TxtFmtLine
  1170.  
  1171. End Sub
  1172.  
  1173. Sub TxtForm_GotFocus ()
  1174.     FldGotFocus TxtForm
  1175.  
  1176. End Sub
  1177.  
  1178. Sub TxtForm_LostFocus ()
  1179.     FldLostFocus TxtForm
  1180.  
  1181. End Sub
  1182.  
  1183. Sub Txtformatstring_GotFocus ()
  1184.     FldGotFocus TxtFormatString
  1185.  
  1186. End Sub
  1187.  
  1188. Sub Txtformatstring_LostFocus ()
  1189.     FldLostFocus TxtFormatString
  1190.  
  1191. End Sub
  1192.  
  1193. Sub Txtprintwidth_GotFocus ()
  1194.     FldGotFocus TxtPrintWidth
  1195.  
  1196. End Sub
  1197.  
  1198. Sub Txtprintwidth_LostFocus ()
  1199.     FldLostFocus TxtPrintWidth
  1200.  
  1201. End Sub
  1202.  
  1203. Sub Txtrjcol_GotFocus ()
  1204.     FldGotFocus TxtRJCol
  1205.  
  1206. End Sub
  1207.  
  1208. Sub Txtrjcol_LostFocus ()
  1209.     FldLostFocus TxtRJCol
  1210.  
  1211. End Sub
  1212.  
  1213. Sub Txtrjformat_GotFocus ()
  1214.     FldGotFocus TxtRJFormat
  1215.  
  1216. End Sub
  1217.  
  1218. Sub Txtrjformat_LostFocus ()
  1219.     FldLostFocus TxtRJFormat
  1220.  
  1221. End Sub
  1222.  
  1223. Sub Txtrjnum_GotFocus ()
  1224.     FldGotFocus Txtrjnum
  1225.  
  1226. End Sub
  1227.  
  1228. Sub Txtrjnum_LostFocus ()
  1229.     FldLostFocus Txtrjnum
  1230.  
  1231. End Sub
  1232.  
  1233. Sub TxtTask_GotFocus ()
  1234.     FldGotFocus TxtTask
  1235.  
  1236. End Sub
  1237.  
  1238. Sub TxtTask_LostFocus ()
  1239.     FldLostFocus TxtTask
  1240.  
  1241. End Sub
  1242.  
  1243.